home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amos_turbo / demos / objects.amos / objects.amosSourceCode
Encoding:
AMOS Source Code  |  1980-08-18  |  1021 b   |  40 lines
  1. Screen Open 0,640,200,2,Hires
  2. 'Define the objects
  3.  Extension_12_050E 32
  4. For OBJ=1 To 2
  5.     Extension_12_01BE OBJ,5
  6.     Extension_12_020E OBJ,1 To 0,0
  7.     Extension_12_01F6 OBJ,2 To 10,0
  8.     Extension_12_01F6 OBJ,3 To 10,10
  9.     Extension_12_01F6 OBJ,4 To 0,10
  10.     Extension_12_01F6 OBJ,5 To 0,0
  11. Next 
  12. 'draw them on the screen 
  13. For OBJ=1 To 2
  14.      Extension_12_0264 OBJ,150,100
  15.      Extension_12_0294 OBJ,110,50,5
  16.      Extension_12_0294 OBJ,100,1,-2
  17. Next OBJ
  18. Text 0,150,"Ok, I've now saved the objects..."
  19. '
  20.  Extension_12_02EE "dh0:test_object",1 To 2
  21. Text 0,160,"Now removing them !"
  22. 'removing them 
  23. For OBJ=1 To 2
  24.     Extension_12_02B2 OBJ
  25. Next 
  26. Text 0,170,"Just loading them back...YEAH !"
  27. Text 0,180,"Now press any key !"
  28. Wait Key 
  29. Cls 
  30. Text 0,150,"Now I'm loading and defining the objects."
  31. Text 0,160,"As you can see object 3 and 4 are now defined !"
  32. '
  33.  Extension_12_0304 "dh0:test_object",3
  34.  Extension_12_0264 3,0,0
  35.  Extension_12_0264 4,100,100
  36. For OBJ=3 To 4
  37.     Extension_12_02B2 OBJ
  38. Next 
  39.  Extension_12_050E 0
  40. End